Sub ReadOutlookRecord()
Dim rst1 As ADODB.Recordset

'Instantiate a recordset
Set rst1 = New ADODB.Recordset

'Open rst1 on the Outlook Contacts folder
rst1.Open "SELECT First, Last, [Email Address] " & _
     "FROM Contacts IN 'C:Windows\Temp\;'" & _
     "[Outlook 9.0;MAPILEVEL=Personal Folders|;];", _
     CurrentProject.Connection
     
'Print fields from records in the Contacts folder
Do Until rst1.EOF
     Debug.Print rst1(0), rst1(1), rst1(2)
     rst1.MoveNext
Loop

'Clean up before exiting
rst1.Close
Set rst1 = Nothing

End Sub
